home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / errors2.bas < prev    next >
BASIC Source File  |  1993-03-27  |  771b  |  31 lines
  1.  
  2. Sub GeneralErrors ()
  3.     
  4.     Msg$ = Error$(SaveErr%)
  5.     MsgBox Msg$, 48, "Orbital"
  6.     Select Case SaveErr%
  7.         Case 280 To 297
  8.             DDEErrors
  9.     End Select
  10.  
  11. End Sub
  12.  
  13. Sub DDEErrors ()
  14.         'This will come in handy when I get a DEE to a spreadsheat
  15.         Select Case SaveErr%
  16.             
  17.             Case 282
  18.                 App% = Shell(Server$, 1)
  19.                 App% = DoEvents()
  20.             Case 283
  21.                 Msg$ = "Suggest you open Program Manager "
  22.                 Msg$ = Msg$ + " NOW and use End Task "
  23.                 Msg$ = Msg$ + " to terminate the LAST "
  24.                 Msg$ = Msg$ + " INSTANCE of " + Server$
  25.                 MsgBox Msg$
  26.                 
  27.                 
  28.         End Select
  29. End Sub
  30.  
  31.